LISTING 1: Sample Out-of-Date Wake-on-LAN Script

Set objSocket = CreateObject("MSWinsock.Winsock")
objSocket.Protocol = 1 'UDP
objSocket.RemoteHost = strIPBroadcastAddress
objSocket.SendData hexMagicPacket
objSocket.Close

